


y 


N N N 
kg , ! Wi Ae | 









Institutional Archive of the Naval Postgraduate School 


Calhoun: The NPS Institutional Archive 
DSpace Repository 


Theses and Dissertations l. Thesis and Dissertation Collection, all items 


1979 


A 16 - level color display system for two 
dimensional ultrasonic data. 


Moon, Eugene L. 


Monterey, California. Naval Postgraduate School 


http://hdl.handle.net/10945/18580 


Downloaded from NPS Archive: Calhoun 


| Calhoun is the Naval Postgraduate School's public access digital repository for 
" IC D U DLEY research materials and institutional publications created by the NPS community. 
FW | | Calhoun is named for Professor of Mathematics Guy K. Calhoun, MPS's first 


HI Il KNOX appointed — and published — scholarly author. 


http://www.nps.edu/library 






LIBRARY Dudley Knox Library / Naval Postgraduate School 
411 Dyer Road / 1 University Circle 
Monterey, California USA 93943 










A 16 - LEVEL COLOR DISPLAY SYSTEM FOR 
TWO DIMENSIONAL ULTRASONIC DATA 


Eugene L. Moon 








| 





NAVAL POSTGRADUATE SCHOOL 


Monterey, Galifornia 





THESIS 


A 16 - LEVEL COLOR DISPLAY SYSTEM FOR 
TWO DIMENSIONAL ULTRASONIC DATA 


by 


Eugene L. Moon 


December 1979 


Thesis Advisor: J. P. Powers 





Approved for public release; distribution unlimited 


1191029 





Unclassified 
SECURITY CLASSIFICATION OF THIS PAGE (When Data Entered) 


REPORT DOCUMENTATION PAGE 


|. REPORT NUMB 4. GOVT ACCESSION NO 


4. TITLE (and Subtttio) 


A 16 - LEVEL COLOR DISPLAY SYSTEM FOR TWO 
DIMENSIONAL ULTRASONIC DATA 









READ INSTRUCTIONS 
BEFORE COMPLETING FORM 


13. RECIPIENT'S CATALOG NUM@ER 


3. TYPE OF REPORT & PERIOD COVERED 


Master's Thesis; Dec 1979 















6. PERFORMING ORG. REPORT NUMBER 







, AUTOR a) 8. CONTRACT OR GRANT MUMBEN/ 4) 













National Science Found. 
ENG 77-21600 






Eugene L. Moon 













10. PROGRAM ELEMENT, PROJECT, TASK 


. PERFORMING ORGANIZATION NAME AND ADDRESS 
AREA & WORK UNIT NUMBERS 










Naval Postgraduate School 
Monterey, California 93940 






12. REPORT DATE 
December 1979 
13. NUMBER OF PAGES 


100 


18. SECURITY CLASS. (of thie réport) 





. COMTROLLING OFFICE NAME ANO ADORESS 





Naval Postgraduate School 
Monterey, California 













. MONITORING AGENCY NAME &à ADOONRESS(II different from Controlling Office) 






Naval Postgraduate School Unclassified 


Monterey, California 93940 






Sa. DECLASSIFICATION/ DOWNGRADING 
SCHEDULE 


. DISTRIBUTION STATEMENT (ai thia Report) 


Approved for public release; distribution unlimited 





17. DISTRIBUTION STATEMENT (at (he shetract entered in Block 20, If differeni fram Report) 


- we 


) I 


18. SUPPLEMENTARY NOTES 
This material is based on work supported by the National Science Foundation 
under Grant No. ENG 77-21600 


19. KEY WORDS (Continue on reversa side if necessary and identify by biock number) 


acoustical holography, computer display techniques, acoustical imaging 


20. ABSTRACT (Continue on reverse side if necessary and identify by biock number) 


A 16 - level color display computer program for use with an ultrasonic 
acoustic imaging system is presented. This display system is the second half 
of a two part ultrasonic imaging system built at the Naval Postgraduate 
School. The RAMTEK GX-100A display terminal and a PDP 11/50 digital computer 
were used as the display system. The software implementation and C language 
are discussed. Photographs of actual display using an experimental data 

tape and the computer program are also included. 





DD ,725%, 1473 ecirion or 1 mov ss 18 o8soLeTE 


(Page 1) S/N 0102-014- 6601 | Unclassified 


1 SECURITY CLASSIFICATION OF THIS PAGE (Wren Data Entered) 





Approved for public release; distribution unlimited 


A 16- Level Color Disolay System for Two 


Dimensional Ultrasonic Data 
by 


Fuaene L. Moon 
H 
Lieutant, United States Navy 


B.S.C.S., University of Utah, 1972 


Submitted in partial fullfillment 
of the requirements for the 


degree of 


MASTER OF SCIENCE IN ENGINEERING SCIENCE 
from the 


NAVAL POSTGRADUATE SCHOOL 


December 1979 











ABSTRACT 


A 16 - level color display computer proaram for use with 
an ultrasonic acoustic imaging system is presented. This 
disolay system is the second half of a two part ultrasonic 
imaging system built at the Naval Postgraduate Schoo!. The 
RAMTEK GX-100A display terminal and a PDP 11/50 digital com- 
puter were used as the display system. The Software imple- 
mentation and C lanquage are discussed. Photographs of acm 
tual display usina an experimental data tape and the comput- 


er program are also included. 
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I INTRODUCTION 


This thesis deals with the development of a l6-level 
color displav computer proaram, for use in a computer aided 
acoustic imaging system. The basic imaging system consists 
of a data acquisition system [li], a computer program for 
converting the data and controlling the display hardware, 
and the hardware for disolaying the output. 

The hardware display portion utilizes a RAMTEK GX-100A 
color raster scan display device that iS controlled bv a 
PDP-11/50 digital computer. This allows for real-time com- 
puter controlled displays to be presented. 

Reference [1] discusses in deoth the specific methods 
used for data collection and will not be elaborated upon in 
this thesis. 

Section II orovides bachground information about acoust- 
ical imaaing and the computer proaram will be discussed in 
Son IT of this thesis. Actual program listinas are 
given in Appendix D. The equipment utilized for the 
disolaying of data will also be discussed in Section ITI of 
this thesis. 

In order to confirm the system realiability a data set 
was read into the PDP-11/50 and was used as the development 


tape. 








II BACKGROUND 


A. ACOUSTICAL IMAGING [3] 


By usinq coherent ultrasonic waves of sound instead of a 
beam of coherent light to "illuminate" an object one can 
create acoustical BE that become three-dimensional 
pictures when illuminated by laser light. 

In order to produce an acoustical hologram the scene is 
"illuminated" with a pure tone of sound. The objects dis- 
turh the sound waves and produce interference patterns. 
This procedure is discussed in detail in Ref. [2] The pat- 
tern can be recorded in various ways. Once recorded the 
acoustical hologram can be reconstructed with a laser beam 
exactly as if it were an optical’ hologram. Other techniques 
Such as computer processing can also be used to reconstruct 
the objects. 

The interaction of sound with solids and liquids is dif- 
ferent than the interaction of electro-magnetic radiation. 
Sound can travel a considerable distance, through dense, 
homogenous matter and lose little energy and yet it will 
lose a significant amount of eneray when it passes through 


an interface. 











This loss is due to reflection at the interface, which is 
converse to the energy losses that occur in electro-magnetic 
radiation Therefore sound can be significantly effective in 
medical diagnosis, in non-destructive testina and in seeina 
underwater and underground because it is BESSE the discon- 
tinuities of the internal oraans tumors, flaws, submeraed 
objects or subterranean strata rather than the hulk matter, 
that is of interest to the observer. 

Acoustical imaging is not new; there are sonar devices 
that produce pictures similar to those on a radar screen, 
and can be used for prospectina for oi] and minerals. Simi- 
lar scanning methods are also in use by physicians for the 
detection of brain tumors and for examing the unborn child. 
In the latter examples the sound is a frequency of between 
one and ten Maerz Another techniaue emoloys an acousti- 
cal "camera". In this method sound waves bounced off an ob- 
ject once focused with an acoustical lens onto an imace con- 
verter that translates the patterns of sound intensity into 
a pattern of visible liaht. 

The limitina feature of both these conventional methods 
is that the images show only two dimensions. They are two- 
dimensional because the methods detect only the intensity 
(the sauare of the ampltitude) of the sound waves in the 
sound images. What the conventional methods are unable to 


record 1s the phase information, that is, the arrival time 
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of the crest of the wave from the object with resoect to the 
arrival time of the crest of a reference wave of the same 
frequency. 

The most powerful feature of holography is that phase 
information as well as intensity information is retained in 
the holooram and can be subsequently "played back" in the 
optical image. Thus in acoustical holoqraphy there àS a to- 
tal transfer of information from the acoustical wave field 
to the visible optical wave field. ' 

One type of acoustic holoaraohic system which has been 
investigated is that which uses a scannina, detectina trans- 
ducer movina through a raster oattern in the holoaraphic 
plane. A typical system is illustrated in Fia. 1. The pro- 
cedure involved was first described in an elementary form by 
Thurstone in 1966 (5). Normally water is used as the medium 
for the acoustic propagation. A sound source is placed on 
one side of the object and a scanning hydrophone on the oth- 
er. The use of a reference beam may be eliminated by means 
of electronic simulation. The acoustic object beam alone is 
detected and the detector outout is added electronically to 
reference signal comina from the same signal generator that 
supplies power to the irradiatina sound source. The result- 
ing signal can then be processed to measure amolitude and 


phase which are subsequently recorded. In one version the 


signal is used to modulate the briahtness of a small lamo 
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that travels through a raster pattern in synchronism with 
the scanning hydroohone. The lamp brightness as a function 
of postion can be recorded on photographic film. 

What: has been described thus far is the most convention» 
al of the point-by-point scannina systems. However it is 
possible to scan in many other ways. One example is suqa- 
gested bv the fact that reciprocity holds between the il- 
luminating transmitter and the sensor. In this method, the 
point transmitter is scanned over the hologram aperature 


while the sensor remains fixed. 


AL VIN 7 
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Source 


Point by Point Scannina System 


Figure | 
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Another example allows both the transmitter and sensor 
to be ganged together and made to scan as a unit over the 
holographic aperture. And yet another method 1s to hold 
both the transmitter and sensor stationary and scan the ob- 
ject to obtain an equivalent hologram. One of the problems 
with all these aporoaches is that the scannina is inherently 
slowrmany transits of the scanning transducer are involved 
for wide band holograms. In order to overcome this oroblem 
Various modifications have heen proposed,several of which 
involve the use of EE arrays. The arrays may be eiì- 
ther of one or two dimensions and may be samoled or scanned 
mechanically or „electrically. In general these systems 
operate faster but typically do not provide as much image 
information because of limations on the number and uniformi- 
ty of the elements of the array. 

As reported in Ref. [2), a oreliminairy version of ul- 
trasonic imaging system with capability of two dimensional 
coherent data processing and comouter image processing has 
been built and tested at the Naval Postoraduate School! 
(NPS). 

Reference [2] also indicated that further work was re- 
Quired to develon more software for processing and disolay- 
ing of images produced by the system. This thesis deals 


with efforts in this direction. 








| 
| 
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B. DATA COLLECTION 


The type of system from which the data for this thesis 
was created is described in detail in Ref. [2]. 

Introductory information is included herein. The object 
is insonified by a 6" (15.24 cm.) diameter gold coated 
quartz tranducer The transmitted or reflected wave is 
detected coherently (ie.,both amplitude and phase) in some 
portion of a diffraction olane located an arbitary distance 
from the object. Detection of the comolex wave is accom- 
plished by a rasterscan of a single .04" (1.0imm) diameter 
PZT-5 ceramic receiver with a fundamental freauency of 1.014 
MHz. Piezoelectric receivina elements offer an ideal combi- 
nation of linearity and sensitivity (6) for this aoplication. 

After wave detection , the amolitude and phase of the 
wave are sampled, diaitized, and recorded. The recorded 
data is then entered in the computer processina portion of 
the system at a later time. As indicated the Naval Postora- 
duate School (NPS) system consists of two parts : the data 
acquisition section and the comouter processing and display 
section. The emphasis of this thesis has been placed on the 
presentation of the computer program used to display the 


data that was produced in the system previously discussed. 
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EE Sr A TE NM 


A. GENERAL DESCRIPTION 


The disolay system used is currently in operation at 
the NPS utilizing a PDP - 11/50 diaital computer interfaced 
with a RAMTEK GX - 100A terminal and disolay screen, to gen» 
erate the 16 - level! color code displays of the diaitized 
data. 

Figure 2 shows a basic block diagram of the PDP = 11 and 
RAMTEK GX - 100A system as used. 

The RAMTEK GX - 1004 araphics display svstem utilizes a 
raster scan technique, with the disolay image data beina ex- 
tracted from an internal refresh memory. The RAMTEK system 
în operation at the NPS Computer Laboratory is hosted by the 
PDP = 11/50 computer and is accessed through this computer 
and its PWB/UNIX operatina system, from one of the terminals 


in the lab. 
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The PWB/UNIX operating system is a library of executable 
statements that allow system operation to be controlled by 
simple call statements. The C languaae [7] programs dis- 
cussed in this thesis are written for execution under the 
PWB/UNIX operatina system and use many of these library 


calls. 


POP -1/50 


of - 





Sr 2296 | 





Block Diagram of the Display System 
Figure è 
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1. RAMTEK Equipment 


The RAMTEK GX = 100A is a color, raster scan display 
device, the heart of which is a color cathode ray tube, not 
unlike a home color television set. The method for generat- 
ing its raster scan picture is identical to commercial 
Cathode ray tubes. This is the only real similarity. The 
RAMTEK gets the information for its picture from a special 
video generator which reads the contents of a MOS refresh 
memory which cöntains all the information needed to produce 
an image on the screen. 

It is not the intent of this thesis to discuss the 
details of how the electronics function, but to inform the 
user as to how to use the device to display the given data. 
A more detailed discussion of the functioning of the RAMTEK 
can be found in the RAMTEK GX = 100A [8] and RAMTEK GX -100B 


(ol programmers manual. 


2. Operation 


The RAMTEK system consists of a software interface 


to the user, a displav nenerator, keyboard, video lookup 


table and a cathode ray tube. Figure 3 illustrates their 


relationship. 
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The user oroqram executes on the PDP -11/50 comput- 
er. When the aoprooriate instructions are executed, the in- 
terface between the proaram and the display generator for 
the RAMTEK is activated. Information can be sent via the 
interface to the display aenerator from E user program or 
from the keyboard. Information can also be sent from the 
keyboard via the interface to the user programe The display 
generator interprets its instructions and constructs the 
disolay in its ROM memory. The imaae is generated on the 
CRT according to the colors contained in the video lookuo 
table. Any image will remain ( unless over - written ), for 
an indefinite period of time in the ROM memory. 

The RAMTEK graphics display system in the NPS Com- 
puter Laboratory utilizes a raster scan cathode ray tube 
with a PR et gio of 240 horizontal lines and 640 
elements on each line. Each soecific Recent is referred to 
as a oixel. This device has a high element resolution and a 
low line resolution. Therefore, the quality of certain im- 
aaes on the RAMTEK may be less than desirable. Lines that 
are not horizontal or vertical are drawn with a noncon- 
tinous, staircase effect. When utilizing the device these 
resolution factors should be kept in mind, espically when 


operating in one of the data modes. 


ISS 











Color is generated by mixina three primary colors: 


blue, areen, and red each in varying intensities from 0 to 


15. 
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a. Virtual Screen Addressing 


The initialization of RAMTEK, which is accom- 
plished by the execution of the instruction "ramtek()", 
sets various default values. The virtual screen is set to a 
Standard cartesian coordinate system, with (0.0,0.0) at the 
lower left corner of the screen, and (100.0,100.0) at the 
upper right corner. This virtual screen can be redefined by 
execution of a "screen(x,y,x1,y1)" instruction, where x and 
y's are floatina point numbers. 

| Upon execution of ramtek(), a shades of grey 
color table ftable 0) is loaded, with color entry 15 of the 
table NES for display purposes. It selects the al- 
phanumeric control mode and opens the RAMTEK for readina and 
writing and finally erase the screen of any previous images 
or displavs. 

There are three modes of addressing the screen, 
absolute, indexed, and relative. The program in this thesis 
was done in the absolute mode, in which the user specifies a 
specific location on the user defined screen by issuina a 
"strtxy(x,y)" instruction. The 'x' and 'y' values establish 


the current operatina position (COP) location. A discussion 


of the other modes of addressino can be found in Ref. (10). 


21 











b. 


Control Modes 


The RAMTEK operates in any one of eight modes. 


Each mode has as 


modify the opera 


sociated with it certain control flags which 


tion of the specific instruction within each 


mode. Table I Summarizes the control modes and control flaas 


and their relationshios. 


CO 
MODE 

number name 
0 ALPHANUM 
1 TRANSVER 
è RASTER D 
3 COMPLEX 
4 GRAPHIC 
5 GRAPHIC 
6 GRAPHIC 
7 GRAPHIC 


definitions: IX 
BK 
AW 
DW 


FP 


TABLE I 
NTROL MODES AND CONTROL FLAGS 
CONTROL FLAGS 


IX BK AW DW FP 


ERIC X X X X 
SE DATA X X X X 
ATA X X X X 
DATA X X X X 
VECTOR X X X 
PLOT X X X X 
CARTESIAN A A X 
ELEMENT X X X 


- Index Addressing 

- Reverse Backaround 
- Additive Write 

- Double Width 

- Fixed Point 


- Contro! flaa has an effect in this mode 


ce 








(1) Alohanumeric Data Mode. The alohanumer- 
ic data mode is the default mode upon initialization of the 
RAMTEK. The COP is established by the execution of a 
ER instruction. Followinq this instruction the in- 
struction "strout(" character strina ")" will allow a char- 
acter strina to be output to the RAMTEK screen. The charac- 
ter strina can be no greater than 100 characters lona begin- 
nino at the current operating position and continuing on the 
same line. After completion, an automatic line feed occurs 
which defines a new COP on the next line at the Same Start- 
ing point ( in x ) as the previous line. 

When characters are drawn on the RAMTEK 
screen, the character appears in the desianated color, while 
the rest of the screen is drawn in the background color. 
The description of how the color desianation is accomplished 
will be discussed in Section III - c of this thesis. 

(2) Transverse Nata Mode. The typical use 
of the transverse data mode is to define special symbols and 
characters which can not be found in the standard character 


set. 
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The various data modes all have one thing 
in common, namely the "data(name,m)" instruction. This in- 
struction causes the raw data that is passed in a linear ar- 
ray pointed to by "name" to be displayed on the screen 
depending upon the current control mode. Here "m" is the 
number of bytes in the inteaer array named 'name', 

The execution of the data( name, m) in- 
struction writes the information in raw format, that is each 
data byte is interpreted as a single bit per pixel descrip- 
tion of eight consecutive pixels along a real screen line. 
As is illustrated in Fia. 4. execution of the instructuion: 

data(015022, 
133000, 


000101); 


Causes each of the three words (015022, 133000, 000101) to 
be converted to binary representation. Éiaht binary digits 
(ones or zeros) are then used seauentially to produce an im- 
age with each pixel that corresponds to a binary one beina 


intensified, while the zeros remain the background color. 
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000101); 








Transverse Nata Mode 


Figure 4 
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(3) Raster Data Mode. The raster data mode, 
except for the direction of the writina process is identical 
to the transverse data mode. The consecutive bytes 
transmitted by the data() instruction are written horizon- 
tally from left to riaht without starting a new line after 
eight bits are displayed. This is illustrated in Fia. 5 
where the completion of eight bits (pixels) does not cause 
the COP to move to a new line. 

(4) Comolex Data Mode. This mode writes data 
on the screen in the same manner that the raster data mode 
does. However each pixel is described by four bits of data 
instead of three. Thus, a sinale data word describes four 
pixels instead of two as in the previous data modes. 

The color of each pixel being passed is de- 
fined by the four bits that are assigned to that pixel. 
This mode over-rides the color desianated by the  "color()" 
instruction. Unusual and unrealistic displays and images 
can be very easily achieved by the use of this data mode. 
Figure 6 illustrates how a data word is interpreted in this 
mode. The data word is converted to binarv representation 
and each set of four bits represent an entry index of the 
current color table. The colors are drawn sequentially on 
the screen, using only four pixels per data word. The 


color() instruction will be described in Section IIT - c. 
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Raster Data Mode 
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Complex Data Processina 
Figure 6 
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(S) Graohic Vector Mode. The four graphic modes 
are used primarily for interactive drawino and plottinq of 
data orovided by the user. The qraphic vector mode draws 
lines between arbitrary end points. The starting point is 
defined by the existing COP or it can be defined by the exe- 
cution of strtxy(x,v), to establish a new COP. The end 
points can be defined by issuing either a "point(x,v)" or 
"oointr(x,y)" instruction. The first uses absolute or in- 
dexed addressina, depending upon the control flags condi- 
tion, and the second uses relative addressing. The values 
Of x, and y are real and must be exclusively different than 
the current operating point values. After execution, the 
COP is then the end point of the vector just drawn. Thus a 
linked line as shown in Fia. 7 can be drawn by issuina a 


strtxy() followed by successive point() instructions. 
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Instrutions: 


setmode (4,0); 

strtxy(10.0,10.0); 

point(5.0,8.0); 

point(12.0,9.0); 

pointr(-1.0,2.0); /% relative */ 


(11,11) 


(10,10) 


(1279 


(5,8) 


Drawina vectors in Graphic Vector Mode 
Figure 7 
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(6) Graphic Plot Mode. The displays generated 
by the graphic plot mode have been imolemented as a set of 
plot routines in the user interface. The three routines are 
lotot ()" (plots points) "olotin()" (plots continious 
lines), and "oloth()", (plots a histogram). Each of the 
methods require the user to specify the points to be plot- 
ted. All three plottina methods are illustrated in Fig. 8. 
Detailed instructions on their use can be found in Appendix 
B of Ref. (101. 

(7) Graohic Cartesian Mode. The araphic 
cartesian mode draws solid rectangles between arbitrary end 
points. The end points are defined as the lower left and 
upper right corners of a rectanale. The COP is the comple» 
tion point of the drawing unless a new COP is defined with a 
strtxy() instruction. Second and subsequent rectangles can 
be drawn by the use of point() or pointr() instructions. 
With the fixed point flag set, a strtxy() instruction deter- 
mines the common point for and hetween subsequent point() or 
pointr() instructions. Figure 9 illustrates these charac- 


teristics. 








plotpt() plotin() 





ploth() 


Graphic Plot Mode 
Figure B 
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Instructions: 
setmode(6,0); 
strtxy(10.,10); 
color(1); 
point(12.14.); /* Draw A in color 1 */ 
color(2); 
point(14.,15.); /* Draw B in colon 2 */ 
fixot(1); /* set fixed point * 
strtxv(S5S.,5.); f 
point(3.,2.)5; /* Draw C in color 2 */ 
color(3); 
point(7.,80.); /* Draw D in color 3 */ 


A (12,14) 


(10,10) 


(579) 
í 


(7,4) 


i552) 


Graphic Cartesian Mode 
Figure 9 
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(8) Graphic Element Mode The graphic element 
mode draws a single pixel on the screen as determined by a 
point() or a pointrí() instruction. After execution, the COP 


is on the same real screen line and one screen element to 


the right. 








c. Color Usaae 


All images that are displayed or the screen are 
displayed according to an entry in the video look-up table, 
which is commonly called the color look-up table. 

(1) Definina Colors. The RAMTEK hardware de- 
fines colors by the combining red, blue and green in varying 
intensities to produce color. Since the color lookup table, 
(from which the CRT receives its instructions on how to mix 
the three colors.) stores information in digital format, the 
user is limited to 27112 (4096) oossible color definitions. 
In order to define an entry in a color table, the instruc- 
tion "triple(b,g,r)" is used to convert the three inout 
parameters blue (b), areen (9), and red (r) into an integer 
which is used for insertion into a T table entry. Each 
entry represents the code for a color in a twelve bit word. 
Each word is broken into three, four bit binary numbers 
which represents intensities of blue, green, and red to be 
mixed. 

A color table that can be used for an image 
is limited to sixteen entries, these are the only colors 
that can be displayed at any one time on the screen. Entry 
zero of the color table is used as the backaround color, 
thus leavina the fifteen other colors for use in displayina 


images on the screen. 
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As one becomes familier with the RAMTEK 
disolay it will become obvious that many of the "colors" are 
simply shades of the same color, many of which appear to be 
almost black or almost white. It is extremely difficult for 
an ordinary person to distinquish between (0,0,0) , 
(0,0,1), (0,1,0), or (1,0,0) all of which are very ‘close’ 
to black. 

The RAMTEK interface system permits the use 
of eighteen separate color tables, the first four tables ( 0 
thru 3 ) are system reserved tables, and can not be modified 
in any way. The user may define as many additional color 
tables as desired up to fourteen others, as described in the 
following section. The system color tables are: 

table 0 - shades of grey table 1 - shades of blue 


table 2 - shades of green table 3 - shades of red 





(2) Loading a Color Table. Loading a user gen- 
erated color table reauires a series of overations. First 
an integer array of sixteen words must be declared. Then it 
is necessary to load each entry of the array from zero to 
fifteen with the sixteen colors that are desired. In order 


to accomolish this, the triole(b,g,r) routine ıs used to 


code the ordered triples and then assign the returned codes 


to each entry in the intener array. 


—— — 


| Be 








After the array has been loaded, the rou- 
tine "clrtbl(n,name)" is used to load the array into the ac- 
tual color table, numbered 'n', where n is the number of the 
table between four and seventeen, and named 'name'. An ex- 
ample of the code to load a color table is as follows: 


` 


int aal16)] ; /* declare a 16 word array */ 


aa[0] = triole(0,0,0); /* color black */ 


triple(15,0,0); /* color blue */ 


aa [1) 
aa[2] = triole(0,15,0); /* color green «/ 
aa [3] = triole(0,0,15); Z* color red x/ 
aa[4] = triole(15,0,8) /* color violet  x/ 


d 


35 [1 5]7 2 rpiple (15,15,15) /* color white */ 


clrtbl(S,aa); /% load color table 5 with 


the array aa */ 














d. Programmina the RAMTEK 

In order to use the RAMTEK system it is neces- 
Sary to place prior to any RAMTEK instructions in the C 
language program the ramtek() routine. This routine must be 
the first call made in the user program. It is the initial» 
ization routine for the user interface and it opens the RAM- 
TEK device and keyboard. 

In order to utilize the interface, when compil- 


ing a C language program for RAMTEK the system command is : 


% ramtek filename.c 


Anpendix A contains a list of reserved words. 
These words should not be used within any user programs that 


utilize the user interface for the RAMTEK system. 
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p. DISPLAY PROGRAM 


1. C Lanauage 


This display system was implemented in the C Gros 
grammina language [7], and is hosted by a PDP = 11/50 com- 
puter in the NPS Computer Laboratory. 

The RAMTEK routines were all previously written in 
the C lanauage and were for the most part adeauatelv docu- 
mented in Ref. [10]. The C lanquaae itself is well document- 
ed in Refs. (7] and [11], and allows the user to write clear 
and Banc ise proorams. The C language was available under the 
PWB/UNIX operating system, which is discussed in Refs. [12] 
and [13). 

A C proaram consists of one or more functions, which 
are similiar to the functions and subroutines of a Fortran 
proaram.  "main()" is such a function; all C proarams must 
have a main(). Execution of the program beains at the first 
statement of main, and main wil! usually simply call or  in- 
voke other functions, some which are user defined, others 


from libraries. 
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C lanauage has four types of variables. 
int =- integer ( 16 bits ) 
char - one byte character ( 8 bits ) 
float - sinale-orecision floating point 
double - double precision floatina point 
There are also arrays and structures of these basic 
types, oointers to them and functions that return them. All 
variables in C must be declared and must oreceed executable 
Statements. 
The basic conditional- testing statement in C is the 
if statement, the simolest form of an if statement is : 
if ( expression ) statement 


The expression 1s evaluated and if it is true, the 


Statement is executed. Individual statements end with a 
semi-colon ( ; ). There can be used an optional else 
clause. 


The Relational operators are: 


equal to 


not eaual to 


> greater than 
< less than 
>= greater than or equal to 
<= less than or equal to 
Tests can be combined with "R&R" C AND ), "ii" ( OR ), and 


NOT Y. 








The basic loooinq mechanism in C is the while state- 
ment. The while statement is a loop whose general form is : 

while ( expression ) statement; 
Its meaning is 3 

(a) evaluate the expression 

(b) if its value is true, 

do the statement and ao back to (a). 

The arithemetic operators are the usual add '#', 


subtract (minus) -', multiply '*', and divide "/' and the 
remainder or mod operator 'X'. The else clause can be used 
to devise more elabroate orograms such as : 
if ( expression ) statementi TERN to 
or to construct logic that branches one of several 
Ways 4 
BON LV.) > 
Us 
else it Co...) 
ea 
else (e) 
ion 
else 
ia 
where the statements of the function are enclosed by the 


brackets {}. 
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In addition to the usual incrementing and decrement- 


ing methods, C has two other unary operators '++' ( incre- 


ment ), and ( decrement ). Where ++tn is equivalent to n 


= n + 1 . The unusual feature of '++' and '--', is that 
they can be used before or after a variable. The value of 
++k is the value of k after it has been incremented. The 
value of k++ is the value of k before it is incremented. 
Arrays can be made as in Fortran, thus an array of 

ten integers is created by the followina declaration : 

mt x(101 > 
square brackets [] are used for subscripting» and 
parentheses are used for function references e Array in 
dices begin at zero, thus the elements of x are : x[0), 
MEM [2], —..-««Xxl9]. “Multi=dimension arrays are pro- 
vided, with the declaration similar to 

int name[l0J [20] ; 
name has 10 rows, and 20 columns; and the rightmost sub- 
script varies fastest. 

Text is usually keot as an array of characters. The 

Statement: i 

printf("xd:\tis",n, line): 
will print the inteaer n, a colon, tab five spaces and print 
the characters stored in the array named line. The symbol 
"%d" indicates to print an integer, the symbol "Nt", indi- 
cates to tab five spaces while the symbol "%s" indicates to 
print a character array. Each variable symbol must be iden- 
tified in the description portion of the statement (that 


portion not enclosed by auotation marks). 
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Another method is to place the output between quotes 


printf(" Mary had Xd ducksNn", i) ; 
with i equal to 7 , will orint 
Mary had 7 ducks 
the symbol '\n' is the carriaae return control character. 

The for statement is a somewhat generalized while 
statement, that allows the user to put the initalization and 
increment parts of a looo into a single statement. 

An example is: 
for ( i = 0; į < k; i++ ) { 
Statement) 
statement? 
} 
which executes statement! and statement? k times. 

Global variables, variables common to all functions 
are declared outside of main(). Local variables are declared 
inside a function, while the declaration of passed vari- 
ables is done between the function name argument list and 


the openina '{'. An example is shown on the followina 


page. 








int 2, k ; /* alobal variable x/ 
maın() 


int x(10] ; 

count(sum,10) ; /* calls count routine */ 

printf("The answer is XdO, xt(il) 5 

k  x(1) * x2) + € x3) = x4] ) 
count(total,size) 


int total(í(1], size ; /* passed variables */ 
( 
int i, C 5 /* local variables *x/ 
for € 31 = 0? i < size; i+tt ) 
{ 


executable statements 


} 

for ( z = ks 2 < c} 2**) /* 2 alobal x/ 
{ 

} 

return 3; 
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A pointer in C is the address of something. The 
unary operator '2' is used to produce the address of an obs 
ject. Thus: 

int as b è 
b = &a ; 
puts the address of a into b. If b is declared a pointer as 


int ay *b, C + 


b La + 


C xD ; 
b contains the address of a and c = *b means to use the 
value of b as an address ( sa E oointer ). 

An unusual feature of C is that normal binary opera- 
tors like the '*' and the '-' can be combined with the as- 
H e? 


signment operator to form new assignment operators. 


For example "x == 10" uses the assignment operator '=='!' 
to decrement x by ten, and x z& 0177 forms the AND of x and 
0177. The space immediately following the equal sian is 


critical! X = -10 sets X to minus ten, while X =- 10 decre- 


ments X by ten. 


Appendix B lists key words in C lanauage and mav not 
be used otherwise. Additional information may be obtained 


from Refs. (71 and (11). 
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Zi, Program Description 


A complete program listina of the display program 
can be found in Aopendix D. The filename of this proaram is 
see3.c, and can be cooied, moved, or edited using the rous 
tine system functions of PWB/UNIX listed in references [121 
and (13) . 

The purvose of this section is to discuss each rou- 
tine individually, each routine's purpose (output) and its 
relationshio with other routines in the proaram. 

Figure 10 shows functional flow of the display pro- 
gram. The general purpose of the orogram is to read a data 
file into memory, sort the data into two separate files, and 
convert the two files which have relative values in them to 
absolute values. Next the program quantizes each file to 16 
levels for use in disolaying the imaae. Durina execution 
the RAMTEK system is initialized and the image is displaved 
with an option to chanae the selected disolay type. The 
basic flow is that the function main() calls each routine, 
that routine accomplishes a Soeciific function and returns 
to main for the next function call. Appendix C is a more 


detailed flow chart of the oroaram and subroutines. 
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3. Declarations 


The following variables are declared as global variables so 


that multiole declaration statements are not required. 


variable 


amp 


ph 


inten 


show 


flaa 


fdi 


fd2 





function ( use ) 


filename to store 4096 (64x64) 
relative values of amplitude 


filename to store 4096 relative 
values of phase 


filename to store 4096 relative 
values of intensity 


integer counters 


ASCII conversion to integer 
of four bits of "tpone" 


integer value for the selected 
color table 


integer value for the selected disolay 


integer indicator as to 

whether the routine showclr() 

has been executed or not. 

If flaq = 1 then erase the screen 
in the routine draw(). 


integer file descriptor for the 
openina of file tpone 


integer file descriptor for the 
openina of file amp 





fd3 


fd4 


f ds 


fd6 


fd? 


aa(16), bb [16], 
dd(16], eeí161], 
et (16) 


ec (4) 


*DC 


phase 


integer 
opening 


integer 
opening 


integer 
opening 


Integer 
opening 


integer 
opening 


16 - word 


various 


file descriotor 
of file ph 


file descriptor 
of file mag 


file descriotor 
of file phase 


file descriptor 
of file inten 


file descriotor 
of file mage 


color tables 


for 


for 


for 


for 


the 


the 


the 


the 


the 


integer arrays to store 


four character - character array 
to store four values of tpone 
either amp or ph 


pointer to character pc 


character, 
for determining that 
the keyboard has occured 


character for labelina the 
color bar table 


a = 'b' is a test value 


input from 


filename to store 4096 actual 
values of magnitude 


filename to store 4096 actual 
values of phase 
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X, y real counters for positioning 
the COP for displaying the data 


maxa maximum value of amolitude 
mina 1 minimum value of amolitude 
maxp maximum value of ohase 

minp minimum value of ohase 

maxi maximum value of intensity 
mini minimum value of intensity 
difa difference between maximum 


and minimum amplitude 


difo difference between maximum 
and minimum phase 


difi difference between maximum 
and minimum intensity 





— 


mage filename to store 4096 real values 
of intensity (magnitude sauared) 


b. Main Program 


The purpose of the main program is to call the 
various routines that are used to accomplish the purpose of 
the program. The flow of execution through main() is 
sequential. The compilation and the execution of this piro= 
gram causes specific data files to be filled with display 


data words. These files must be previously created by the 
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user. One method is to use the "ed" (edit) command [12] 
such ast 

Zed amp or ned inten 

Seven data files must be created and reside in 
the users library prior to program execution. This pro- 
cedure will be exolained further in section A-3 of this 
chapter. 

If the program has been used to display data, 
Causing these data files to have the correct information 
stored in them, it iS unnecessary to re-fill them with the 
Same information again upon subsequent executions of the 
program that uses the same input data tape. 

Comment indicators ‘'/*' are recoanized and 
cause the compiler to cease compilina and continue reading, 
until a '*/' is sensed, when comoilina continues again. The 
Statements included betweem '/* and */' are recognized as 
unexecutable comment statements and have no effect upon pro” 
gram execution. 

The six routines readdata(), amptomaa(), phto- 
phas(), amolevel(), phlevel(), and intlevel() are used to 
fill the appropriate data files. 

Since only one test data taoe was avaliable, 
with its -information beina stored in data file "toone", it 
was unnecessary to execute these routines each and every use 


of the program. 
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Comment indicators were placed prior to and fol- 
lowina each routine call from main(), in order to preclude 
execution of six time consumina routines. Use of these com- 
ment indicators sianificantly reduces the compilation, and 
execution time of the proaram. If it becomes necessary to 
change a data file, because of additional or different data 
tapes, the simple removal of the appropriate comment indica- 
tors will easily falicitate the use of the specified rou- 
tine. 

The main() routine sets three variables (n, Oe 
and show) to initial values for use by subsequent called 


routines. The program terminates upon the execution of an 


exit(), which is executed in the finish() routine. 


Co fileopen() 


The purpose of fileonen(), is to open seven data 
files, which must alreadv exist in the users library, for 
reading and writing of information. If these files do not 
exist in the user's library, refer to Ref.[12] for further 
edification. 

It should be kept in mind that tpone, amp, oh, 
mag, phase, inten, and maa2 are external files that have 
data stored in them, and that this data must be stored by a 
write instruction and must be accessed by a read instruc- 


tion, 
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It is the user's responsibilty to ensure that all 
necessary files do exist and are accessible prior to program 
execution, Returned values are 1 if successful opens have 
been executed; otherwise the program will terminate upon an 


unsuccessful opening of any file. 


d. readdata() 


The purpose of readdata() is to separate the 
data from toone into two files, amo and ph. 

The oriainal! values of data were recorded onto a 
papertave in alternatina sequence, amplitude then phase, for 
in excess of 4096 data oairs. E data was recorded in AS- 
CII format, thus it is also converted from ASCII to inteaer 
within the routine readdata(). 

The variable cc is a character array four char- 
acters long. When the array is filled with three characters, 


' * (space), as the fourth character, the library rou- 


and a 
tine atoi() is called which converts the contents of the cc 
array into an integer variable m. Depending upon whether the 
variable K is odd or even, m is then written into either the 
amp file or the oh file, This Sequence is repeated 4096 


times. Upon completion of readdata(), no further use of 


toone 1S required , and two seperate data files, amp and ph 
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will each have 4096 integer values of amplitude and phase 


Stored in them respectively. 
e, amptomaa() 


The purpose of amotomag(), is three fold: first 
it converts the relative values in amp (in db) into actual 
values in mag (in db); secondly, it finds the intensity (in 
db) of the values in maa and assions them to maad; and 
thirdly, amotomag determines maximum and minimum values for 
magnitude (maa) and magnitude sauared (maa2). 

One value of amp is read, mag is assianed a 
specific value accordina to the eaustion: 

mag = -20.18 = „1734 x amp 

This is necessary because the data acauisition 
system records Siate values. For display purposes actual 
values are reauired necessitatina a system calibration to 
produce the above eauation. If the calculated value of mao 
is areater than the current value of maximum amplitude, then 
max amplitude is assigned this value. If this value of maa 
is less than the current value of minimum amp, then min amo 
is assianed this value. The magnitude squared value is then 
tested in the same manner, and finally maq value is written 
into mag file, and the maa? value is written into the mage 


file. 
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f. phtoohas() 


The routine ohtophas() is similar to amotomag() 
in purpose namely to convert from relative values of phase 
to actual values, and to find mun and minimum values. 

One value of ph is read and devendina upon 
whether it is less than or equal to or greater than 127, it 


is assianed a soecfic value of ohase (in dearees) accordina 


to: 


if oh < 127 


phase 1.139 + 1.4946 * ph 
else 
phase = -380.28 + 1.4917 + ph 
As with amo this equation results from calibra- 
tions performed on the acquisition system. 
Maximum and minimum ae are tested and saved 


accordingly. Finally the value of ohase iS written into the 


phase file. 
g. amolevel() 
The purvose of amolevel() is to divide the range 
of amplitudes into 16 equal levels, (because each color 


table has a possibility of sixteen color entries), to test 


each individual value and to assign it a new level number 
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according to îts value. If maxa has a value of 600 and mina 
has a value of 200, sixteen eaual levels would be 25 units 
wide. The general equation used is: 
difference = maximum - minimum; 
For each value: 
(maximum - value) * 16 
EMEN UNS ono 
difference 
Thus a value of 317 in the above example would be 
given a level value of 4. 
( 600 - 517 « 16 ) 
16 - e zm vm e e mm mm e mm e ē Z á 
400 
upon completion of amolevel(). The file amo will then con- 
tain integers from zero to fifteen representing the various 


ampltitude levels, These values will be used as color table 


indices in subeauent functions, for displaying the image. 
h. ohlevel () 
The purpose of phlevel() is indentical to the 
purpose of amplevel(). Upon completion of phlevel(), the 


file ph will contain integers from zero to fifteen 


representing the various phase levels. 
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mntlevelt) 


= As with amplevel() and ohlevel(), the purpose of 
intlevel() is to generate a file with values from zero to 
fifteen representing various levels of intensity. Upon com- 
pletion of intlevel() the file inten will contain inteaer 
values from 0 to 15 representing the various intensity lev- 
els. 

Each of the six preceeding routines are called 
from main(), and are only called one time. If the program 
ee Been previously compiled and excuted, such that current 
data is stored in amp, ph, and inten files; deletion of the 


Comment indicators should be seriously be considered prior 


to compilina and execution of the program. 
j. ctable() 


The puroose of ctable() is to define additional 
color tables that can be used for disolay. 


The five arrays have been declared alobally and 


by the use of the triole() routine, various color values 


have been assigned to each element of the five arravs. 
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Remember that there are four color tables that are system 
color tables, that are also availiable for use, namely 
greys, blues, and areens. The arrays are assigned specific 
color table numbers and names by use of the clrtbl (n, name) 


routine, 
k. display() 


The puroose of this routine is to create the im- 
aqe onthe disolay screen accordina to values stored in the 
desired display file. Once the image has been drawn, the 
routine calls the routine draw) to elles the color table 
that is in use, sets the desired selection indicator to zero 
and calls the routine change(). Control is never returned 
to main() and the proaram can only terminate in the routine 
finish() which is called by change(). 

The selected color table is the variable n and 
the brightest color entry is assianed for use as writing 
text on the screen. All colors are available for use in im- 
age displayina a one of the colors is used to interact 
with the user, namely entry 15. 

The COP starts at the upper left, at cartesian 
point (30.,69.375). For 64 values of i, X is incremented bv 


0.625, the color level value is obtain from the selected 
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disolay file, used as the variable in color() and a block 
0.62S by 0.625 units is drawn by the block() instruction. 
After 64 blocks have been drawn, Y is decremented by 0.625. 
X is assigned the value of 69.375 and for 64 values is de- 
cremented by 0.625. The color level values from the display 
TYPE file, are obtained and the block drawn in the aporopri- 
ate color. Fiaure 12 is a pictorial representation of this 
procedure. 

The seek() instructions are system functions 
that move a oointer to the specefied position of the speci- 
fied file. 

seek (fd2,0,0); 
orders the oointer to point to the file described by "file 
description two" (fd2), point to the zero position ( the 
first zero) with a zero offset (the second zero). 

The variable show is used to simply indicate 


which disolay has been selected to be plotted. 


Show= 1 ==> Amolitude display 
Show = 2 ==> Phase display 
Show = 3 ==> Intensity display 


When display() is completed the imaae can remain 
on the screen indefinitely, until an erase() is excuted bv 


completing the action indicated at the too of the screen, 


Which is typing a 'c for change or a 'a' for quit. 
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I. draw(o) 


The routine draw() is called from two different 
routines, from showclr() and from disolay(). The purpose of 
draw() is to disolay the current color tabie on the RAMTEK 
screen with corresponding color levels indicated. There are 
sixteen colors in each table and the size of each color 
block is 3x4 units. The variable Z is a character variable. 
By adding 060 to the inteaer variable p, the statement 
out (Z) can be excuted. Out() displays a single character on 
the RAMTEK screen at the current operating point. Upon com- 
pletion of drawing the color table execution is returned to 


the calling routine. 
m. oagel(). 


The purpose of pagel() is simply to outout text 
to the RAMTEK screen for introductory comments, When the 


letter C' is typed on the RAMTEK keyboard the routine ter- 


minates, and returns to main(). 
n. paaec() 


The purpose of vaae2() is to allow the user to 


select the disnlay he desires to see. The integer variable 
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show is set to zero and the program will wait until a number 
is typed on the RAMTEK keyboard, followed by a carriage re- 


turn usina the CR key. 
o. npaae3() 


The purpose of page3() is to allow the user to 
view the avaible color tables and then select which color 
table he wishes to be used to generate the image. There are 
nine different color tables: four system reserved color 
tables, and five orogram aenerated. The integer variable n 
is used to indicate the selected color table. 

The viewina of color tables is accomplished by 
calling the routine showcir(). The user may already know 
what tables are avialable and the corresponding table 
number, thereby not wishing to view the nine tables. This 
option is also available, simoly by typing the letter  'n' 


Indicating that no = the user does not wish to see the color 


tables. 
De showclr() 
The purpose of the routine showclr() is to call 
draw() for displaying the current color table and askina the 


user if he wishes to see the next color table. 
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q. chanoe() 


The purpose of the routine chanae() is to deter- 
mine whether the user wishes to select another desired 
display , and/or Change the color table currently in use. 
When the user indicates that a change in display is desired 
Me routines, page2() and paae3(), are called to obtain 
necessary information concerning the selected display and 
color to be displayed. Once this is accomplished, the rou- 
tine display() is again called to produce the desired 
display. 

The routine change() can only be exited by indi- 
catina that the user desires to quit, bv typing the letter 


(of when asked to do so. The disolay can be changed as many 


times as the user desires to do so. 


ka finish) 


The purpose of the routine finish() is to verify 
that the user does in fact wish to quit. The user is aiven 
a second and final chance to indicate whether he does really 
want to stop, or does want to ao back and look at another 


selected display. 
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3. Program Execution 


It is assumed that the user of this proaram does have at 
least some introductory experience with the facilities in 
the Comouter Laboratory, and with the PWB/UNIX operating 
system. In order for the user to sucessfully displav the 


image on the RAMTEK system a number of actıons must have 


been accomplished. 


a. Program Loadina 


The orogram see3.c must be copied into the user's 
library so that he mav make desired chanaes, and so that 
compilation may be accomplished. 

As indicated in section III A-2, seven data 


files must reside in the user's library. Those files are : 


tpone 
amp 

oh 

phase 
mag 

int 

maq? 

They can be created by usina the edit command 


"ed", then writing one blank line (carriaae return), and 
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Chen quitina the edit mode. For example to create the amo 
file: 
4ed amo 
0 ? 
>a 
(return) 


o 


>1 w 
>q 
% 


would accomolish the task. 


DI Program compilation. 


Once the user has cooied and made any desired 
edits to his oersonal copy of the program, the orogram can 
be compiled in order to produce an executable file named 
a.out. The compilation is accomplished by typing the fol- 
lowing system command : 

% ramtek see3.c 

This action will produce an executable file 

named a.out. It is hiahly recommened that the move command 
mv a.out anotherfilename 

be executed in order to reduce the possibility of  erasina 

the file a.out by another comlipation prior to completion of 

its use. 

Once the compilation has been completed, typina 
the filename a.out will cause execution to begin. Typino 
anotherfilename, if the move (mv) command was executed, wil! 


also cause execution to commence. 
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c. RAMTEK Execution 


In order to use the RAMTEK system verification 
from the Computer Laboratory staff personnel should be ob- 
tained as to whether RAMTEK is operational or not. When 
RAMTEK 1S operational two power switches must be turned on. 
One switch is on the CRT housina cabinet; it is a knob lo- 
cated on the front lower left corner marked on - off. The 
other switch is on the keyboard, a areen push type switch on 
the upoer right corner. Both of these switches must be on 
before the program is executed in order to have meaninafull 


results. 


d; Editing the Program 


The user can edit his copy of the display pro» 
gram in the normal PWB/UNIX editina mode. Most of the 
changes will probably be the addition or change of color 


tables, or increasing the size of the disolav. 
C. SYSTEM DISPLAYS 


The photoaraohs shown in the following paaes are pic- 
toral evidence that the routine appears to accomplish the 
desired task, although much of the visual impact is lost bv 


being limited to black and white photos. 
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1. Program Development 


The display proaram was developed in Sequential 
steos. A specific routine was written and tested individu 
ally and then it was incorporated with the previously com- 


pleted routines. 


l. Display Photoaraohs 


The photographs on the followina pages show how some 
improvements to the program affected the display output. 
The last sets of photograohs show the display output of the 
completed proaram, as listed in appendix D. This proaram is 
re-entrant, allowina the user to select an alternate display 
and different color tables for use in subseauent display 
outouts at the current session. 

Figure 12 shows one of the first images produced. 
The object is a circular aperture placed in front of the 
source transducer. The sound field is scanned immediately 
behind the object. Previous images (not shown) filled tne 


screen and did not have any marains. In fiaure 12 the image 
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is rectanqular, controlled by the block() instruction, to De 
40 wide and 70 high. The display used white as the back- 
ground color and it used shades of red and blues as the 
primary colors of the table. 

Figures 13 - 16 show the image to be blocked to 
40x40. As can be seen in Fig.16, this square image allowed 
for information to be presented in ne borders of the 
Screen. 

Figures 17 = 20 are presented to show the "inter- 
action" that the user has with the system. The user must 
resoond to the requests oresented on the screen + or the 
system will remain in an idle state waiting for a response. 

Figures 21 - 26 show the three possible kinds of 
display images, utilizina two different color tables. Fig- 
ures 21,23 and 25 use the shades of red table, while Fias. 
22,24 and 26 use a mixed color table. Fiqures 21 and 2? 

are of the amplitude plots? Fios. 23 and 24 are the phase 


plots? and Figs. 25 and 26 are the intensity olots. 
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Figure 19. 
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Figure 20. 
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Amplitude Display - Mixed Colors 


74 








Figure 23. 
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Figure 25. 


Intensity Displav - Reds Color Table 


"TES E 
EE CS DE: 





Figure 26. 


Intensity Display - Mixed Colors 
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CONCLUSTONS AND RECOMMENDATTONS 


Although the developed system is not an optimum system 
` 


in speed or in size; it does allow 16-level color code 
disolays of two dimensional data arrays to be visually 
displayed. The system | described here was designed for 


part of an ultrasonic imaaing system. However this display 
portion of the overall system could be used to display two 
dimensional data from any source. The one reauirement is 
that the data be stored in alternating values on the data 
tape. It must be recoanized that software modifications 
could be almost unlimited, in order to achieve many possible 
improvements. 

Included here are a few recommendations that would de- 


finitely improve the efficiency of the current program. By 


reducina the time required to construct the imace the pro- 
cessing capabilities of the system would be increased. 
First, allow the program itself to create the necessary data 
files, rather than the user beina required to do so. 
Secondly, allow the user to aenerate color tables durina 
Proaram execution. This would allow for additional investi- 
gations to be conducted at the terminal by increasina the 
color selection to the maximum possible . Thirdly, it is 


recommended that furture endeavours in this system u tala 


the maanetic taoe capabilities of the PDP 11/50 comouter. 
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That is the necessary data files and computer program should 
be kept stored on magnetic tape when not in use, This would 
reduce memory requirements when the proaram is not in use and 


allow for easier transportation of data. 
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ADOFF 
adon 
ALPHA 
axis 

b 

BKON 
BKOFF 
bkrnd 
blank 
BLK 
block 
bracket 
bt] 

bte 

bt4 

bt5 

buf f 
bytenct 
C 

cft 
change 
clrhold 
clrtb! 


code 


APPENDIX 


einst 
epagel 
epagec 
epage3 
erase 
ERS 

fix pit 
flip 
fname 

fo 

EROE 
fpon 
get f 
getnum 
GRAPHCRT 
GRAPHELM 
GRAPHVEC 
head 
headotr 
heat 
holdx 
holdy 
index 
inotrs 


instr 


À 


RESERVED WORDS 
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pause 
pick 
olotot 
plotin 
ploth 
point 
pointr 
proc! 
OG oie 
DROSS 
orocd 
DEOCH 
otrbuff 
putup 
aptr 
aptr] 
at 
Ouest 
al 
ramtek 
RASTERD 
retchar 
scissor 
SCR 


Screen 








codelt 
coke 
color 
colort 
colortbl 
comb 
COMMA 
COMPD 
conve 
conv] 
CODY 
CR 

er] 
ete 
ct 
cta 
cursv 
curso 
cursh 
d 
data 
datano 
dolwid 
disp 


dumo 


instl-inst80 


inter 


int S3 


int60 


itoa 


Io 


TXON 


LCM 


Icmholn 


LER 


Lex 


CET 


CEZ 


LER 


LLX 


LL 1 


LL? 


LTA 


LTD 


lt tir 


LXD 


moreinst 


n0-n17 


octb! 


out 


A0 


scroll 
SDCO 
setmode 
setuo 
size 
skip 
SSCALL 
strout 
strtxy 
systbl 
tblwho 
TRANSD 
triple 
upcnt 
Vector 
wait 
ADORE 
WOON 
writon 
xaxis 
xmin 
xmax 
vaxis 
vax isf 
ymin 


ymax 





int 
double 
extern 
goto 
break 
else 
while 


default 


SCENE 


C Lanquaae Reserved 


char 
Struct 
reaister 
return 
continue 
for 


Switch 


entry 


81 


Words 


float 


auto 


static 


sizeof 


yf 


do 


cose 
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OQ YD YO Ul wn 


/x Proaram for disolavina data on the FAMTEK display unit */ 
/*xk*k** DECLARATIONS *xxxXxx/ 
int amo, ph, inten, i, j, k, m, n, show, flaa ; 
int fdl, fd2, fd}, fd, fd5, fdo, fd? ; 
int aall6)], bbl16)], ddll6], eell6)], ffí15) ; 
char ccl(4], *pc, 9» 2 + 
float maq, phase, x, y ; | | 
float maxa, mina, maxp, minp, difa, difp ; 
float maxi, mini, difi, maag ; 
/*kkx* MAIM PROGRAM" ( calls most of the subroutines ) ***<**/ 
main () 
{ 
fileopen () ; 
ramtek () ; 
erase () ; 
ctable () 3 
oəqel () ; 
paae? () ; 
oaae5 () ; 
/* 
readdata () 5 
* / 
/* 
amotomag () ; 
x/ 
/% E 
phtoohas () ; 
*/ 
LE 
amolevel () ; 
* / 
/x 
ohlevel () ; 
*/ 
/% 
intlevel () 5 
x / 
display () ; 
) 
/***kxkk OPENS ALL NECESSARY FILES aa*k44/ 
fileopen () 
fdl = open("toone",0) ; /Jx OPEN INPUT FILE FOR RFAD ONLY */ 
me fdgdl < 0 ) { 
printf(" CANNOT APEN DATA FILE An" ) ; 
orintf(" PLEASE INSURE THAT TPONE IS IN LIPRARY \n" ) ; 
exit () ; 
) 
fd2 - ooen("amo",9Q) ; /< OPEN AMP FILE FOR READZURITE */ 
if ( fa < 0 ) ( 
orintf(" CANNOT OPFN ANP FILF Nn" ) ; 
orintf(" PLEASE TNSURE THAT AMP TS IM LIRRARY An" ) 3 
exit Q ; 
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seed.c 


61 


100 


Paae 2 . Wed Dec 5 11:59:16 1979 


a 


) 


tas. s copen("oh*,2) ; /* OPEN PH FILE FOR READ/WRITE x/ 
ente) A 
orintf(" CANNOT OPEN PH FILE Nn" ) ; 
orintft(" PLEASE TNSURE THAT PH IS IN LIBRARY \n" ) ; 
exit () 3 


} 


fd4 = open("maq",2) ; /* OPEN MAG FILE FOR READ/WRITE */ 
If ( fdu <0 ) { 
DIEM CONCA NNVOTCOPEN MAG FILE Nn" ) ; 
printf(" PLEASE INSUPRE THAT MAG TS IN LIRRARY An") 
exit () ; 


< 


fd5 = open("ohase",2) ; 4x QPEN PHASE FILE FOR REAN/SWRITE 
sat td> < 0 ) { 
orintf(" CANNOT OPFN PHASE FILE \n" ) : 
orintf(" PLEASF INSURE THAT PHASE IS IN LIRRARY \n" ) 
exit () ; 
} 


fd6 = open("inten",2) ; dr OPEN INTENSITY FILE FOR READ/UR' 
mie fade < 0 ) 1 
orintf(" CANNOT OPFN INTENSITY FILE Nn" ) 3 
Oorintf(” PLEASE SEE THAT INTENSITY IS TN LIBRARY Nn" ) 
exit () 5 


~~ 


fd7 = open("maa2",2) ; /* OPEN MAG SQUARED FILE «/ 
if ( fd7 < 0 ) { 
Orintf s CANNOT OPEN MAG SQUARED FILE \n" ) +£ 
D int ((" PLEASE CHFCK LIRRARY FILES Nn" ) ; 
exit () ; 
) 


return + 
) 


101 /r**4** READ DATA FROM TPONE INTO EITHER AMP OR PH FILE x*x«*«/ 


102 


104 
105 
106 
107 
108 
109 
110 
111 
112 
115 
114 
115 
116 
117 
118 
119 
120 


103 readdata () 
{ 


for ( i = 0; i < 4096; i+t+ ) ( 
for ( k >= 0; k < 2; *tt ) { 
C 


DC = CC + 
do ( 

read(fdi,oc,l1) ; 

if ( zoc == "An' ) pc = &cc(-1) ; 
) 
while ( *pct+ $= ' ' ) ; 

m = atoi (cc) ; 

if ( k == 0 ) 

write(fde,&m,2) 3; 
else 


write(fd3,%m,2) ; 
} 
} 


return ; 


87 





see3,c Page 3 Wed Dec 5 11:59:16 1979 


121 } 

122 

125 /****x CONVERT INTEGER AMP VALUES INTO dR FLOATING POINT MAG VALUE 
124 l 

125 amotomag () 

126 { 

127 seek(fd2,0,0) ; /x POINT TO REGINNING OF AMP FILE +/ 
128 seek(fd4,0,0) ; /* POINT TO REGINNING OF MAG FILE "ai 
129 seek(fd7,0,0) ; /* POINT TO BEGINNING OF MAGO FILE x/ 
130 maxa * -999,0 ; 

131 mina z 999.0 ; 

132 maxi = 000.0 ; 

133 mini = 999,0 ; 

134 ` for ( § = 07 š < 4096; ¡i++ ) ( 

135 read(fdd,&amn,2) + /* READ 2 BYTES INTO AMP x/ 

136 maq = -20.18 =- .1734 * amp $ 

137 maad = mag + maa 5 

138 if ( maxa < maa ) maxa = mag ; 

139 if ( mina > mao ) mina š maq +; 

140 if ( maxi < maol ) maxi = magg } 

141 if ( mini > mage ) mini = mage ; 

142 write(fd4,2magr+4) ; 

143 write(fd7,&mag2,U) ; 

144 ) 

145 

146 return +; 

147 ) 

148 


149 /xxxxx CONVERT INTEGER PH VALUES TO dB FLOATING POINT PHASE VALUFS 
150 
151 phtoohas () 


152 ( 

155 seek(fd$,0,0) ; /* POINT TO BEGINNING OF PH FILE */ 
154 seek(fd5,0,0) ; FR POINT TO BEGINNING OF PHASE FILE */ 
155 maxp = -9899,0 ; 

156 mino = 999,0 ; 

157 for ( í z 0; i < 4096; itt ) 4 

158 read(fd3,8oh,e) ; /* READ 2 BYTES OF PH x/ 

.159 if ( ph < 127 ) 

160 phase = 1.139 + 1.404946 x poh 5 

161 else 

162 ohase * -38R0,0R + 1,4917 * ph 5 

163 write(fdS,&phase,4) 3 ZE tte ede BYTES INTO PHASE TAL 
164 if ( maxo < phase ) maxo = phase +; 

165 if ( mino > phase ) mino = phase ; 

166 } 

167 return +; 

168 } 

169 

170 /*x**** CONVERT THE FLOATING POINT VALUES INTO INTEGER VALUFS OF 
171 BETWEEN 0 AND 15 ( for color table use ) KR X 
172 

173 amolevel () 

174 4 

175 difa = maxa - mina ; 

176 seek(fde,0,0) € 

177 seek(fd4,0,0) e 

173 for ( i = 0; i < 4096; i++ ) ( 

179 read(fd4,&maq,4) +; f 

180 amp = 16 - ((( maxa =- maq ) / di ifa ) * 16 ) ; 
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181 write(fde,&amo,2) ; 

182 } 

183 return ? 

184 } 

185 

186 ohlevel () 

187 { 

188 difp = maxon - mino ; 

189 seek(f43,0,0) ; 

190 seek(fd5,0,0) ; | 

191 for ( i = 0; i < 4096; i++ ) { 
192 read(fdS,%phase,4) ; 

193 ph = 16 = ((( maxp = phase ) / difo ) * 16. ) ; 
194 ! write(fa3,%ph,?) , 

195 ) 

196 return ; 

197 } 

198 

199 intlevel () 

200 ( 

201 seek(fd6,0,0) ; 

202 seek(fd7,0,0) H 

203 difi = maxi - mini ; 

204 for ( i = 0; i < 4096; i++ ) { 
205 read(fd7,&maqe,4) ; 

206 EE maxi = maa2 ) / difi ) * 16 ) 3 
207 write(fd6,&inten,2) ; 

208 } 

209 return ; 

210 } 

211 


212 /**rxxx DECLERATION OF VARIOUS POSSIBLE COLOR TABLES *x*xx/ 


214 ctable () 


2150 { 

216 

217 aa(01=triole(15,15,15); 

218 aal1]=triole(15,15,10); 

219 aal20]=triple(15,15,05); 

220 aal3)=triole(15,15,00); 

221 aal[d] S+triple(15,10,15); 

222 aalS)l=triole(15,05,15);3 

223 aafólztrio!e(15,00,15); 

224 aal7)=triole(15,10,19); 

225 aa(8}=triole(15,10,05): 

226 aaf912triole(15,10,00)5 

227 aa(t0)ztriole(15,05,10); 

228 aalll)=ztriole(15,05,05); 

229 aall2]=triole(15,05,00); 

230 aaf13]=triole(10,10,10); 

231 aa(14)ztriole(10,10,05); 

232 aa[lS]=triple(05,0S,05); 

233 

234 bb 0) =triple(00,00,00); /* black */ 
235 bb[1)1=triplet(01,01,01); /* a / 
236 bb[21=triole(02,02,02); / k k/ 
237 bb[3]=triple(03,03,03); Ié * / 
238 bb {4]=triple(04,04,04); / k * / 
239 hb[S1z=triple(05,05,0%); / * & / 
240 bb[6lztrioplef(06,06,06); / X & / 
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241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 


Paae 5 Wed Dec 
bb [7] =triole(07,07,07); 

bo (81=triple(l08,08,0%); 

bb[9]=triole(09,09,09): 

bb [10)=triole(10,10,10); 
bb(11)=triole(11,11,11); 
bhb(12)=triple(12o,l2o,1eo); 
bb[13)=triole(13,13,13); 
bb[149]=striole(14,14,14); 
bb(1S)]=striole(15,15,15); 


dd(Ol=triole(00,00,00); 
ddlil=triole(15,00,08); 
dd(2)ztrio!e(04,00,12); 
ddf3l=triole(15,00,15); 
dd(4}=3triole(12,04,15); 
dd(Sl=triote(08,08,15); 
dd(6)=tripte(00,00,15); 
dd(7l=triple(00,12,15); 
dd(8}=triole(00,15,15); 
dd(9)=triple(00,15,08); 
ddlf10}=triple(00,15,00); 
dd(lilztriole(15,08,00); 
dd(12)2tr101e(08,15,00); 
dd(13}) =triole(15,15,00); 
dd(14)=triole(15,00,00);5 
dd{1S)=triple(15,15,159; 


ee (0) =triole(00,00,00); 
ee (1) =trinle(00,00,05); 
se(2)=triple(00,00,10); 
ee(31=rrinle(00,00,15); 
ee (4) =trip!e(00,05,00); 
ee (S}=triole(00,05,05); 
ee (6) =triple(00,095,10); 
ee(7)-triole(00,05,15);7 
ee (B}]=triple(00,10,00); 
ee (9) =triple(00,10,05); 
ee (10}=triple(00,10,10); 
ee {11}=triole(00,10,15); 
ee {[12]=triole(00,15,00); 
ee (13) =trinle(00,15,05); 
ee[14]}=triole(00,15,10); 
ee (15) =triole(00,15,15); 


ff(tOülztriple(15,00,00); 
fftil2triole(15,00,05); 
tf(2)=triple(15,00,19); 
ff (3)=triote(15,00,15), 
ff (4) =triote(15,05,00): 
ff [S]}=triple(1i5,05,05); 
ff(61-*tríole(15,05,10); 
ff (71 triple(15,05,15); 
ff(8]ztriolef15,10,90); 
ff[91=triple(15,10,05); 
ff{10}=triole(15,10,10); 
ff(11)=triole(15,10,15)5 
ff(12)=triple(15,15,+00); 
ff(13)=triole(15,15,05); 
ff(14)=triole(15,15,10); 
f O[IS]Striple(15,15,15); 
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/ * 
/ k 
/* 
/ kx 
/ * 
/* 
/ * 
/ k 
/ k 


/ k 
/ xk 
/ x 
/ * 
/ k 
/ k 
/* 
/ 
/* 
/k 
/% 
/ % 
/ k 
/ k 
x 
/ X 


/* 
/ xk 
/* 
/ k 
/ k 
/ xk 
/ x 
/ xk 
/ k 
/ k 
/ xk 
/* 
/ k 
ZX 
IR 
fk 


/ * 
/ x 
/ x 
/ 
/ x 
ZA 
/ k 
/ k 
IR 
/ xk 
/ k 
f k 
/ k 
/ k 
/ k 
Lé 


SE 


x / 
* / 
x / 
* / 
k / 
* / 
* / 
x / 
white */ 


black */ 

violet */ 
purole */ 
maqenta */ 

puce */ 

pink */ 

red */ 

orange */ 
yellow */ 
yellow =- areen */ 
green */ 

green - blue */ 
blue = areen */ 
cyan kx/ 

blue */ 

white */ 


black AZ 
x / 
a / 
reg */ 
* / 
*/ 
x / 
x / 
a / 
k / 
x / 
x / 


green «/ 


x / 
* / 
yellow */ 


blue */ 
k / 
*/ 
magenta */ 
* / 
*/ 
*/ 
x / 
* / 
a / 
x / 
x / 
cyan */ 
x / 
x / 
white */ 
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301 
302 
303 
304 
x05 
306 
307 
308 
309 
310 
311 
312 
313 
314 
50 
316 
317 
318 
319 
529 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
35] 
552 
333 
334 
335 
336 
337 
338 
559 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
257 
358 
359 
360 
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a 
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elrtbl 
clrtbl 
clrtb) 
clrtb! 
eurtb! 


(4,22) 
(5,bb) 
(6,dd) 
(7,ee) 
(ñ, ff) 


ce va “neo o “@ 


return + 


) 


/***** ROUTINE FOR DISPLAY PORTION OF PROGRAM 


display () 

( 
flag = 0 ; 
erase () ; 


screen (0,0, 0,0, 100,0, 110.0 ) ; 
colortín) ; 

colorí(15) ; 

x = 30.0 ; y = 69,379 ; 


/***x* AMPLITUDE DISPLAY ROUTINE x*x*xxx/ 


if ( show == 1 ) { 
strtxy(40.,80.) 5 

strout ("AMPLITUDE DISPLAY”) ; 
strtxy(x,y) ; 

seek(fd2,0,0) ; 


for ( i = 07 i < 64} itt ) / 

y 691575 = ( i * .625 ) ; 

for ( i = 0; j < 66; j+*+t ) { 
x = 30, + ( .625 * j ) 5 
read(fd2,8amo,2) ; 
color(amo) ; 
block( x, y: x+.625, y+.65e5 ) 3} 

} 

it+ 3 

y = y = .62S ; 

for ( j 0; j < 647 jtt ) { 


x 3 69.375 - ( .625 * j )3 

resad(fd2,&amo,?) ; 

color(amo) ; 

block( x, y, xt*t.625, y+.605 ) ; 
) 

) 

draw (n) ; 

show = 0 ; 

chanae () ; 

return è 

} 


/x**t%k% ROUTINE FOR PHASE DISPLAY PORTION OF 


else 

if ( show == 2 ) { 
strtxy(40.,80.) ; 
strout("PHASF DISPLAY") ; 
strtxy(x,y) ? 


T3 


t **xx/ 


PROGRAM xarax/ 
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361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
37: 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
41 1 
412 
413 
414 
415 
416 
417 
418 
419 
420 
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seek(fd3,0,0) ; 


for ( e 64; 
y = 69,375 - ( i 
for € j = 0; j < 
x = 30. + ( 
read(f43,8&oh 
color(ph) ; 
block( x» v, 

) 

att } 

y Z y ° .62ƏS ; 

for ( j = 0; j < 
x = 69,575 = 
read(fd3,&ph 
color{oh) ; 
block( x, y; 

) 


} 

draw (n) 5 
Show = 0 ; 
chanae () ; 
return > 


} 


s 5711671979 


itro). 
TI e Xl 
64; j++ ) { 
2029 A j 73 
0 ER 
xt.62905, 


y+.62S ) ; 


60; j** ) { 
(625 xod ). s 


pe) + 


x*.625, y*.625 ) ; 


/**x*** ROUTINE FOR INTENSITY DISPLAY *x&xx/ 


else 
UTE show == 5 ) { 
strtxy(49.,80.) 3 


strout ("INTENSITY DISPLAY") ; 


strtxy(x,y) 5 
seek(fd6,0,0) ; 


for 1 s 0; 1 « 60; itt ) 4 

y = 69,375 = ( 1 * .605 ) ? 

for ( j = 0; j < 64; jtt ) t 
XE 50.754605 * | ) $4 
read(fd6,&inten,?) ; 
color(inten) ; 
block( x» y,» xt.beS, yt.60^ ) ; 

) 

i++ 5 

y "y - .605 ; 

for ( i = 0; j < 64; jee ) { 
= 07-5175 (605 * ] 3 
read(fd6,&inten,2) ; 
color(inten) ; 
block( x, v, x+t.605, yt.625 ) 5 

) 


} 

draw (n) ; 

show = 0 ; 

chanae () ; 

return ; 

) 

return ; 
} 


/x**&k* PROGRAM TO DRAW AND LABLE COLOR LEVELS **s*x**«/ 


draw (p) 


Fey 
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421 int p ; 





Yee í 
423 rag == I 5 erase () ; 
424 colort(o) ; 
425 color(15) ; 
426 strtxy(9.,18.) 5 
427 strout ("LEVEL 0 1 2 3 4 5 6 7 8 9 
428 strtxy(20.,10.) ; 
429 y = 10. ? 
430 for (| = 0; j < 163 j++ ) { 
431 2 = 20. t ( 5. * j ) 3 
432 color(j) ; 
433 block(x,y,xt$5.,y*4.) ; 
434 Strtxy 8 
435 Strout COLOR TABLE "); 
436 2 5 9 + 060 ; 
437 strtxy (55.,¢e8.) ; 
438 out (z) ; 
439 } 
440 return Z 
gui >) 
442 
UU3 /axxxzx INSTRUCTIONS AND INTRODUCTION **x x xk / 
444 
445 padel () 
446 { 
|| 447 strtxy €40.,90.) ; 
ETT. strout ("16 - LEVEL COLOR DISPLAY") ; 
| 449 Semtxy (25.,80.) ; 
| 450 strout ("This oroaram is designed to display a data field with 
| 451 Sertxy (03,,76.) ; 
| as strout ("a selected 16 level color table. The proaram will ") 
| 453 strtxy (23.,72.) ; 
454 strout ("convert a data matrix named TPONE from ASCII to") 
455 strtxy (23.,68.) 5 
456 strout ("a 64 x 64 integer array and then display the") ; 
457 strtxy (23.,64.) ; | 
458 strout ("magnitude, phase, or intensity olot as selected") ; 
459 strtxy (23.,40.) ; | 
460 strout ("When ready to continue type the letter 'c' ") ; 
461 while ( q != 'c' ) 
462 a = retchar () ; 
463 a = 'b! 3 
464 erase () ; 
465 return ; 
466 } 
467 
468 oaaee () 
469 4 
470 show = 0 ; 
471 deze p 7 
472 EE e BE, A $ 
473 strout ("You will now inout your selection for the TYPF ot"); 
474 strtxy (20.,76.) ; | 
475 strout ("disolay you wish to see. Type the number '1' ") ; 
476 strexv (200,702. ) 3 
477 strout ("if you want to see the MAGNITUDE plot, tyne the") ; 
478 strtxy (20.,58.) ; 
479 strout ("number '2' if you want to see the PHASE plot") ; 
480 strtxy (20.,64.) ; 


FD 
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481 strout ("or tyoe the number '3' if you wish to see the") 
482 s trtxy (20.,60.) + 

483 Segoe INTENSITY plot. Followed by a CR. ™) ; 

484 strtxy (20.,50.) ; 

u85 strout (" 1 - MAGNITUDE ") ; 

486 Sertxy (20.,06.) ; 

487 Strout (" 2 = PHASF ") ; 

488 SBtrtxy (20.,42.) ? 

489 Strout €° 4 = INTENSITY ") ; 

490 while ( show == 0 ) 

491 ` show = aetrum (10) ; 

492 strtxy (20.,30.) 5 | 

493 Strout ("When ready to continue tyoe the letter ‘'c' ") 3 
494 while ( q ts: Le” ) 

495 o = retchar () ; 

496 gos > 

497 erase () ; 

498 return ; 

499 } 

500 

S01 vaae3 () 

502 { 

503 q = 'b' ; 

Sou n = 99 ; : 

50S strtxy (20.,80.) 5 

506 strout ("If vou desire to see the color tables that") : 
507 strtxy (20.,76.) 5 

508 strout ("are loaded in this orogram that you may choose") ; 
>09 stintxy (20,,72.) ; | 

S10 strout ("from for disolavinqo the data tyne the letter 'y'") ; 
SE strtxy (20.,68.) ; | 

512 strout(" Tf you already know what color") ; 

513 strtxy (20.,64.) ; u 

514 strout ("table you wish to use or if you do not desire to see 
515 strtxy (20.,60.) 5 

516 strout ("the color tables, type the letter 'n'! ") ; 

517 while ( o == 'b' ) 

S18 a = retchər () ; 

519 if ( Q == "y" ) showclr () ; 

520 erase () ; 

521 colort (0) ; 

522 color (15) ; 

523 strtxyvy (20.,50.) 3 

524 strout ("Select the color table you wish to use ") ; 
525 Stptry ec ër A + 

526 strout (" 0 = Greys 1 - Blues") ; 

527 strtxy (20.,02.); 

$24 strout (" ? - Greens 3 - Reds") ; 

529 etrtxy (00.,,38.) + 

530 strout (" 4 - Mixed 5 - Mixed") 

531 strtxy (20.,34.) ; 

5 52 strout (" 6 =- Mixed 7 - Mixed") ; 

533 strtxy (20.,30.) 7 

534 strout (" R = Mixed Followed by a CR ") ; 

535 while ( n == 99) 

536 n = getnum (10) ; 

S37 nares ; 

538 erase () ; 

539 return ; 

S40 } 
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541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
>51 
552 
553 
554 
555 
556 
557 
558 
599 
560 
561 


562 


563 
564 


594 
595 
596 
597 
598 
599 
600 
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/**xxx PROGRAM 


showclr () 
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BUGDDSPLAY COLOR TARLES age? 


( 
flag = 1} 
erase () ; 
for ( i = 0; i < 9; it+ ) ( 
o = 'b' ; 
draw (i) ; 
setmode (0,0) ; 
Strtxy (50. , 0.)  ; 
SunGuumawm Next color table 2 y = yes ; n - no ") ; 
while ( a == 'b' ) 
a = retchar () ; 
if (a == 'n' ) í = 10 | 
else continue ; 
} 
colort (0) ; 
color (15) : 
erase () ; 
return è. 
) 


/**&**X* ROUTINE TO CHANGE 


chanae () 
{ 

o 'b' ; 
strtxy 
strout 
strtxy 
strout 
strtxy 
strout 
while ( a 

a = 
if Ca =: 

finish 
else 
{ 


erase () 
Daae? () 


a = > 
strtxy 
strout 


while ( n 
a = 


if (q 


erase () 
paae3 () 


} 
) 
display () 


return » 


} 


finish () 
{ 


retchar () , 
‘a! ) 


*kkxx/ 


THE TYPE OR COCOR OF THE DISPLAY 


(20.,90.) ; 

("If ycu want to chanqe the TYPE or COLOR table of 
(20. 56.) + 
("disolay tvoe the 
(20.,Ro.) ; 

("the letter “a'.") ; 


the") 


letter 'c'. If vou want to auit tvoe 


th! ) 


() ; 


No ue 


° 
, 


(20.,20.) e 

("If you want to change the color table selected tyo 
ne) 

() ; 


retchar 


- — uve ) { 


e 
r 
° 
, 


° 
, 


SÉ 
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4 


601 A 

602 colort (0) +; 

603 color (15) ; 

604 erase () 5 

605 strtxy (20.,8R0.) ; 

606 strout ("You have indicated that you wish to terminate this se 
607 uurtxv (20.,76,) + 

608 strout ("if you do wish to stoo tyoe a caoital 'S' |. Otherwi: 
609 strtxy (20.,72.) 5 

610 strout ("type a 'c' and you can continue."); 

611 while (a == 'b' ) 

612 a = retchar () ; 

613 if ( q == 'S' ) 

614 exit () ; 

615 else 

616 ( 

617 erase() ; 

618 chanae () ? 

619 ) 

620 ) 


76 
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